;;; GNU Guix --- Functional package management for GNU
;;;
;;; Copyright © 2021 jgart <jgart@dismail.de>
;;;
;;; This file is not part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (guixrus patches suckless)
  #:use-module (guix build utils)
  #:use-module (guix gexp)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (gnu packages))

(define-public st-scrollback
  (let ((version "0.8.4"))
    (origin
     (method url-fetch)
     (uri 
      (string-append "https://st.suckless.org/patches/scrollback/"
                     "st-scrollback" "-" version ".diff"))
     (file-name "st-scrollback.patch")
     (sha256
      (base32 "0i0fav13sxnsydpllny26139gnzai66222502cplh18iy5fir3j1")))))

(define-public st-scrollback-mouse
  (let ((version "20191024-a2c479c"))
    (origin
     (method url-fetch)
     (uri 
      (string-append "https://st.suckless.org/patches/scrollback/"
                     "st-scrollback-mouse" "-" version ".diff"))
     (file-name "st-scrollback-mouse.patch")
     (sha256
      (base32 "0z961sv4pxa1sxrbhalqzz2ldl7qb26qk9l11zx1hp8rh3cmi51i")))))

(define-public st-scrollback-mouse-altscreen
  (let ((version "20200416-5703aa0"))
    (origin
     (method url-fetch)
     (uri 
      (string-append "https://st.suckless.org/patches/scrollback/"
                     "st-scrollback-mouse-altscreen" "-" version ".diff"))
     (file-name "st-scrollback-mouse-altscreen.patch")
     (sha256
      (base32 "17avl5bgwlh5ayaqfg01sg9klf828hc0fd36cgzldnl595jyp1yb")))))

(define-public st-swapmouse
  (let ((version "0.8.4"))
    (origin
     (method url-fetch)
     (uri 
      (string-append "https://st.suckless.org/patches/swapmouse/"
                     "st-swapmouse" "-" version ".diff"))
     (file-name "st-swapmouse.patch")
     (sha256
      (base32 "0yx6fc4chcl08k51bh1k6rh84jb4vd75p5fbk43w4nbd25a44xkv")))))

(define-public st-undercurl
  (let ((version "0.8.4-20210822"))
    (origin
     (method url-fetch)
     (uri 
      (string-append "https://st.suckless.org/patches/undercurl/"
                     "st-undercurl" "-" version ".diff"))
     (file-name "st-undercurl.patch")
     (sha256
      (base32 "091ixzrcqzh156zmrmma8wj6js770l8fdx467rkndy3x6hnbrxj3")))))

